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Two Techies Talk 
Tape Transfers 

Claire is an experienced 
Pick programmer at Nosler- 
Bag Industries, a large paper 
manufacturer with about a 
dozen programmers on its 
data processing staff. 

Norman is a newly-hired 
programmer at Nosler-Bag, 
with only a small amount of 
programming experience, 
none of it on a Pick system. 

Norman recently asked 
Claire for some advice about 
his first programming 
assignment at Nosler-Bag... 

Norman: Claire, I was 
wondering if I could ask you 
some questions about this 
mag tape that just came in 


from the Canadian division? 

Claire: Sure. What do you 
want to know? 

Norman: As I understand it, 
the tape contains some 
inventory records from that 
division’s IBM System/38. 
I’m supposed to move that 
data into a file on our 
machine so our production 
control manager can generate 
some reports. I’m also 
supposed to make a tape of 
our division’s inventory 
records and send it back to 
them so their manager can do 
the same thing with our data. 
Can you give me an idea of 
how to do it? 

Claire: Okay. First of all, 
do you know their tape’s 


format? Density, layout, and 
so on? 

Norman: This sticker on the 
tape says it’s an unlabeled, 
1600 BPI EBCDIC tape, with 
80-byte logical records and a 
blocking factor of 100. I’m 
not sure what all that means. 

Claire: 1600 BPI means the 
tape was recorded at a 
lengthwise density of 1,600 
bits per inch. Our tape drive 
can read 1600, 3200, and 
6250 BPI tapes. Just make 
sure the switch setting on the 
front of the drive is at 1600 
when you mount this tape, 
and you won’t have any 
problems reading it. 

EBCDIC is the 8-bit 
character encoding scheme 
normally used by IBM 


systems, whereas Pick and 
most other systems normally 
use ASCII encoding. Our 
BASIC has an ASCH() 
function that will let you 
convert the EBCDIC 
characters on the tape to 
ASCH characters. 

A labeled tape starts 
with a small record that 
identifies the tape file that 
follows. Since this tape is 
unlabeled, there’s no label 
record, and the first record on 
the tape is an actual inventory 
data record. Did they give 
you a description of the 
record layout? 

Norman: Yup. The first 10 
characters are a part number, 
then a 30-character 
description, 5 bytes for the 
quantity, some other stuff... 
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Hmmm, it adds up to 80 . 

bytes of data, so I guess 
that’s what they mean by a 
logical record. 

Claire: Right. But while we 
prefer to think of the data as 
80-byte records, whoever 
made the tape used a 
blocking factor of 100. That 
means every 100 inventory 
records have been “blocked”, 
or concatenated together, into 
an 8,000-byte bunch, then 
written to tape in those large 
chunks. You’ll have to read 
the tape as a series of 8,000- 
byte “physical” records and 
then break each of those 
chunks into a hundred 80- 
byte “logical” records. 

Norman: Why did they 
create the tape that way? 

Why not just let one logical 
record be written as one 
physical record on the tape? 

Claire: Because of the 
design of some tape drives, 
readin^^ll physical 
records nEes about as much 
time as reading large physical 
records^fi packing data into 
large r^Bras means fewer 
records have to be read, and 
more time is saved. There’s 
also a considerable gap on 
the tape between physical 
records, so blocking saves 
tape space and tape travel 
time. 

Norman: I found out about 
the READT statement in the 
BASIC manual, so now I 
think I know how to proceed. 
I need a loop to read the 
physical records, then a 
nested loop inside that to 
break out the logical records. 
Something like: 


OPEN "TEMP" ELSE STOP 
get: READT , BLOCK ELSE STOP 
FOR L * 0 TO 99 
LOGICAL - BLOCK [ (L*80) +1, 80] 
ID - LOGICAL[l,10] 

ITEM - "" 

ITEM<1> - LOGICAL[11,30] 
ITEM<2> - LOGICAL [41, 5] 

*make more attributes here* 
WRITE ITEM ON ID 
NEXT L 
GOTO get 
END 


That fills a file named 


TEMP with items having the 
description in attribute one, 
quantity in attribute two, and 
so on, right? 

Claire: Right. You’ll have 
to use the CREATE-FILE 
command to create the TEMP 
file before you run your 
program, along with a T-ATT 
8000 and a T-REW to attach 


the tape drive at the right 
block size and rewind it to 
the load point. Also, you 
should put a TRIM() around 
LOGICAL[41,5] to make 
sure only digits and no blanks 
end up in the quantity, and 
around LOGICAL[ 11,30] to 
chop trailing blanks off the 
description. And you need 
BLOCK = ASCH(BLOCK) 


right after doing the READT, 
to convert BLOCK from 
EBCDIC to ASCII. 

Also, notice that you’re 
assuming every tape record 
has "a full 100 items. The last 
record on the tape probably 
doesn’t have exactly 100 
logical records, and is 
probably padded with blanks 
or zeroes to make it 8,000 


Now you can create^! 
your own computer-based 
training and tutorials! 


for ■ Sales ■ Manufacturing ■ 
■ + other applications limited only 

C.R. Teacher software is an excitincwiew 
authoring system available for Picmh 
McDonnell Douglas, Prime INFORIMWl 
and COSMOS Revelation. 

'-r'. - afofe. 

What is an authoring 
system? It’s a tool that 
YOU can use to create 
your own computer-based 
training. 

Using C.R. Teacher you 
possess the power to create 
the computer-based training 
that you and your company will 
be proud of. Picture this: a new 
employee needs training on the 
use of the order entry transaction 
screen. At the touch of a button he 
is in touch with a complete 
tutorial; a learning system if you will, 
which provides him with the training 
he needs. 


Office Personnel 
by your imagination. 


It’s exciting and you develo 
all with C.R. Tel 


K^^Ml 


That’s not all. The “courseware” you 
develop is only limited by your 
imagination. You can teach cornoany 
procedures to all of your empl^bs. 

Teach a new sales person 
how to sell the company’s 
product line. Teach shop/floor 
people how the product is 
assembled. If you can 
imagine it, you can create it 
with C.R. Teacher. 




Order C.R. Teacher by calling or writing us at: 

CRESCEIMDO Associates, Inc. 

24350 Joy Road, Suite 9 Redford Township, Michigan 48239 (313)537-1919 

C.R. Teacher is a registered trademark of Crescendo Associates Inc. 

PICK is a registered trademark ot PICK Systems, Irvine, California. 
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I YES! Please send me more information about C.R. Teacher. | 

| Name __ i 

j Company_ j 

I Address _ I 

j City_State_Zip_ j 

Phone! ) _ 

I Computer System_ , 

I--:-1 

Please fill out or attach business card and return. 


Prime INFORMATION is a registered trademark of Prime Computer, Inc. 
Revelation is a trademark of COSMOS, Inc. 
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ONCE UPON A TIME, there lived a Pick™ 
computer user named Mike. 


Every workday, from eight to live, Mike would sit in 

front of a terminal and type commands to make his 

computer produce reports. Sometimes the 

Ammands worked quiclGy and would make Milft’s 

* 

^inputer instantly displ^ results. But usually Mike 
had to type a command tnat began with the dreaaed 
words SORT or SELECT. Then the computer 
would take forever to process the command, and 
Mike would have to wait a long time before the 
computer could display the report.. 


Fortunately, Mike could stay busy while waiting for 
a SORT, because that’s when he would always get 
lots of phone calls from his coworkers, who wanted 
to know why the displays on their terminals were 
suddenly slowing down to a crawl. 

As each day passed, Mike got more and more bored 
with his slow computer. 






























One day, something terrible happened. Mike had just 
finished waiting ninety minutes for a complicated SORT, 
and was paging through the report on his terminal. 
Suddenly, Mike accidentally hit the Return key, and page 
four of the report flashed by before he could read it. 
Mike would have to do the whole SORT over again just 
fiQsee page four. Mike alrnqpt had a nervous breakdown. 

Flhunately, Mike pulled hi#isell‘ together. But Mike #as 
mad. He just wasn’t going to put up with those slow 

SORTs and SELECTS anymore. 
So Mike bought B-TREE-P. 

Now Mike is very happy. He doesn’t have to wait for his 
computer to SORT anymore. Mike can instantly find 
and display any data he’s looking for. Even scroll 
forward and backward through his files. And his 
coworkers no longer call him, because the computer isn’t 

sluggish anymore. 

The moral of this story? Buy B-TREE-P. 

You’ll be as happy as Mike. 

B-TREE-P is a product of Semaphore Corporation, 207 Granada Drive, Aptos, CA 95003, (408) 688-9200. 

Pick is a trademark of Pick Systems. 
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Sponsored by the Northern California Pick Users, 
a non-profitorganization. 


Educational Program 


Exhibit Program 


Lab Program 



10 AM 
to 

8 PM 


Expert speakers 
presenting 
sessions for users 
at all levels. 



Noon 

to 

8 PM 


Booths to browse. 
•Software products 

• Hardware products 

• Consulting services 



Compare different 
machines running 
the same collection 
of applications. 


A ONE-DAY 
EVENT 


Wednesday, September 16,1987 
Holiday Inn 

San Francisco International AIrport 







I want to attend! Enclosed is $20 for my all-day 
pass to all exhibits and educational sessions. 

Name _ 


Company 


Address _ 
City/State 

ZIP _ 

Telephone 


Mail to: NCPU, Box 884474, 
San Francisco, CA 94188-4474. 


Registration: LindaGardner-King 415-355-9630, Exhibits: Denis Hill415-456-0868, Educational sessions: AnnetteThuesen 415-352-9663 
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Pragma (not to be 
confused with 
Pragma's Product 
Profiles) is the 
original 48-page 
technical journal for 
Pick users published 
quarterly beginning 
in August 1982. 
Each issue is packed 
with software and 
helpful information, 
including complete 
and debugged 
program listings and 
detailed, explanatory 
articles for readers at 
all levels of 
experience. Order 
your Pragma issues 
,'oday and begin 
unlocking the secrets 
in your Pick system! 

Send $25 for 
each 48-page 
back issue to: 
Pragma, 207 
Granada Dr., 
Aptos, CA 
95003 
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bytes long. You can either 
code in a test to WRITE 
ITEM only if ID is valid, or 
just manually search the file 
for garbage items after 
processing the tape. 

Norman: The parts file I’m 
supposed to dump to tape has 
the description in attribute 5 
and the quantity in attribute 
6, so I figure my tape-making 
program should be something 
like: 


OPEN "PARTS" ELSE STOP 

SELECT 

LOOP 

BLOCK - "" 

FOR L = 1 TO 100 
READ NEXT ID ELSE ID - "" 

READ ITEM FROM ID ELSE ITEM-"" 
DESC - ITEM<5> ; QTY - ITEM<6> 
etc — "other data" 

BLOCK - BLOCK : (ID "L#10") : 
(DESC "L#30") : (QTY "R*5") : 
(etc "L#35") 

NEXT L 

WRITE! EBCDIC (BLOCK) ELSE 
STOP "WRITET FAILED" 

UNTIL ID - "" DO REPEAT 

STOP 

END 


Since I know there are 
no null item identifiers in the 
PART^Bfe, I use that as my 
end-of-^re test. 

Claire^^ee that the inner 
loop c^Rtly pads out every 
block, even if the end of the 
PARTS file is reached before 
the last block has grown to 
8,000 bytes. That’s good. 


Norman: I think I’ll be able 
to read and write the tapes 


Semaphore 
Corporation 
welcomes its 
newest B-TREE-P 
customers: 

Target Supply 
Aerojet General 
Systems Support 
Moore Industries 
Wavetek 

Unison Technologies 
Meditech 
Call U.S. Inc. 
Smithsonian 


with no problem now. 

Thanks for your time. 

You’ve been a real help. 

Claire: No problem. Let me 
know if you run into any 
snags. 

Later that day, Norman 
processed the tapes correctly 
on his first try. 


Now available by popular demand! 

Our Pick'Mailing List 

CREAM of the CROP 

Our 3,000 most responsive Pick users'names and addresses. 
Only Si 50 plus tax for one-up adhesive labels, sorted, printed, 
and delivered. Send no payment without first obtaining our 
order form and one-time use agreement. 

P/Mail by Marianne 

1893 Nadina Street • Seaside CA 93955 




and others 


CRTS — ADDS - Wyse - and others 


Also Printronix 


Experience an experienced computer 
system... and save! 


If you are considering the purchase of an experienced 
computer system, call us. It can save you a pile of money. 


We have a variety of systems available for We can provide you with useful information 
quick delivery. We also stock disk drives, tape on manufacturers' product lines, policies and 
subsystems, memory communications control- license fees. And, we will take your existing 
lers and anything else you might need. system in trade, but let you keep it during 

your conversion. 

Microdata General Automation Pick™ 5ystem$ 

Ultimate Pertec Fujitsu 

ADDS C. LTOH and other Pick™-type systems 


Our technical staff is available to help you with any particular application. 

New systems also available. 

dM^iDCEjnc. 

783 Old Hickory Blvd., Suite 255A Brentwood, TN 37027 (615) 373-2570 

Where someone else's experience saves you money! 
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New B-TREE-P installations 
are sprouting up every day! 



Join the growing number of sites that are discovering the power and flexibility of B-TREE-P: 

Long Beach Community Services • Halprin Supply Co. • Casualty Underwriters Inc. • University of California • 
Distributed Logic Corp. • Jet Electronics & Technology Inc. • NC AR • Trudell Trailer Sales Inc. • Stewart Co. • 
Computyme • Data Operating Systems Inc. • Tel-A-Train Inc. • Information Technology Consultants • Life & Health 
Insurance Co. of America • Flynt Systems Corp. • System Works Inc. • Miami Trading Enterprises ‘ Generation 
Research • Multisystems Inc. • Infocel • Cooke Data Systems Inc. • John Klein & Assoc. Inc. • Condominium Insurance • 
Penn Independent Assoc. Inc. • Mark Card • Chandler Lumber Co. • Eye Care & Surgery Center • Chicago Ken worth • 
Wofford College • Conston Inc. • Assertive Systems • Office Works • Cornell University • City of Irvine • Excahbur 
Computer Systems Inc. • ADDS Inc. • Specs Music • Specialty Underwriters Inc. • Shoob Photography • May Trucking • 
Sierra Software Inc. • Medical Accounting Systems • AIPAC • NORPAC • Martin Cadillac Co. Inc. • Capital Software 
Ltd. • Oman Publishing • Reinsurance Assoc. • Hubert Distributing Co. • Livermore Police Dept. • Creative Computer 
Services • San Mateo County • Berelson Co. • Minnesota Trade Office • XScribe Corp. • Glastron-Conroy Ltd. • 
Opportunities Unlimited • Topsy’s International Inc. • ACS Systems Inc. • Bronson & Bratton Inc. • Access Software Inc. 
• Pactel Paging • United Collection Bureau Inc. • Laub Group Inc. • Associated Students UCLA • Brooks Equipment Co. 
Inc • Anthony Pools • Samuelson Assoc. Co. • Educators Mutual Insurance • Magic Chef Air Conditioning Co. • 
Crosstern Corp. • Spectradyne Inc. • Tampa Bay Mgmt. Services Inc. • Northwest Agricultural Coop Assoc. • Century 
Publishing Co. • J & L Industrial Supply Co. Inc. • Vitek Systems Inc. • M. Epstein Inc. • Partners National Health Plans 

• Lilyblad Petroleum. 

B-TREE-P is software that allows your data to be instantly located and 
output, without having to wait for lengthy file sorts or searches. 

Write or call Semaphore Corporation, 207 Granada Drive, Aptos, CA 95003, (408) 688-9200. 


